home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / wds / nc_pad.geo / 00017.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  980 b   |  39 lines
  1. on setAlfaBet
  2.   global AlfaBet
  3.   set AlfaBet to "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@.-,/\()!? "
  4. end
  5.  
  6. on getAlfaBet
  7.   global AlfaBet
  8.   return AlfaBet
  9. end
  10.  
  11. on checkkey
  12.   global NotePadClipBoard
  13.   if the commandDown then
  14.     if the keyCode = 9 then
  15.       if NotePadClipBoard <> EMPTY then
  16.         set xx to the selStart
  17.         put string(NotePadClipBoard) after char xx of field "source"
  18.         put string(NotePadClipBoard) after char xx of field "NB"
  19.         set the selEnd to xx + the number of chars in NotePadClipBoard
  20.         set the selStart to xx + the number of chars in NotePadClipBoard
  21.         dontPassEvent()
  22.       end if
  23.     else
  24.       if the keyCode = 8 then
  25.         if the selection <> EMPTY then
  26.           set NotePadClipBoard to the selection
  27.         end if
  28.       end if
  29.     end if
  30.   else
  31.     if the keyCode <> 51 then
  32.       if not (getAlfaBet() contains the key) and (the keyCode <> 36) then
  33.         dontPassEvent()
  34.       end if
  35.     else
  36.     end if
  37.   end if
  38. end
  39.